home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASLIB1.LZH
/
INNER.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-26
|
885b
|
48 lines
'Inner View by Jeff Bretz, John Craig
'Converted to Quickbasic 2.01 By Dennis Dreyer
'INNER.BAS
CLS
Locate 5,20,0:Print "A Demo of window & view statements."
Locate 8,27:color 4,0,6:Print " In Quickbasic 2.01"
Locate 9,17:print "By Jeff Bretz, John Craig, Dennis Dreyer"
For W= 1 to 8000:next
Screen 2:cls
window screen (0,0)-(639,199)
view (1,1)-(638,198),,1
gosub drawview
view(160,50)-(480,150),,1
gosub drawview
view (240,75)-(400,125),,1
gosub drawview
QUIT:
locate 20,30:Print "Press any key to Quit!"
IF INKEY$ <>""then end else goto quit
DRAWVIEW:
cls:n=11:angle=360/n:radians=angle/57.29578
for x= 1 to N
for y=1 to N
Z=Z+1:if Z mod 4 = 0 then z=z+1
sx=sin(x*radians)*225+320
sy=sin(y*radians)*225+320
cx=cos(x*radians)*95+100
cy=cos(y*radians)*95+100
line (sy,cy)-(sx,cx)
next y
next X
return